用vba写一个子程序判断输入的字符串的第一个大写字母是什么。

以下是一个使用VBA编写的子程序，用于判断输入字符串的第一个大写字母是什么：

Sub 判断首字母()
    Dim inputString As String
    Dim firstChar As String

    ' 获取用户输入的字符串
    inputString = InputBox("请输入一个字符串：")

    ' 判断第一个字符是否为大写字母
    If Len(inputString) > 0 Then
        firstChar = Left(inputString, 1)
        If firstChar Like "[A-Z]" Then
            MsgBox "输入字符串的第一个大写字母是：" & firstChar
        Else
            MsgBox "输入字符串的第一个字符不是大写字母。"
        End If
    Else
        MsgBox "输入字符串为空。"
    End If
End Sub

要使用这个子程序，请按下 Alt + F11 打开 VBA 编辑器，然后在 Sheet1 的代码模块中插入一个新的模块，并将上述代码复制粘贴到新模块中。然后按下 F5 运行该程序