Private Function IsBig(sLetter As String) As Boolean
    Dim letterBig As String
    letterBig = UCase(sLetter)
    If sLetter = letterBig Then IsBig = True Else IsBig = False
End Function
 
Private Sub Command1_Click()
    MsgBox IsBig("j")
End Sub