iSymbol = "z" '"Z"
If iSymbol = LCase(iSymbol) Then
MsgBox "Да", vbExclamation, ""
Else
MsgBox "Нет", vbExclamation, ""
End If
iSymbol = "z" '"Z"
If iSymbol = LCase(iSymbol) Then
MsgBox "Да", vbExclamation, ""
Else
MsgBox "Нет", vbExclamation, ""
End If