iSymbol = "a" '"A"
If iSymbol = UCase(iSymbol) Then
MsgBox "Да", vbExclamation, ""
Else
MsgBox "Нет", vbExclamation, ""
End If
iSymbol = "a" '"A"
If iSymbol = UCase(iSymbol) Then
MsgBox "Да", vbExclamation, ""
Else
MsgBox "Нет", vbExclamation, ""
End If