Пароль не может заканчиваться большой английской буквой

Public login, parol As String
Private Sub CommandButton1_Click()
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
TextBox1.Visible = True
TextBox2.Visible = True
TextBox3.Visible = True
CommandButton2.Visible = True
 
End Sub
 
Private Sub CommandButton2_Click()
d1 = Len(TextBox1)
d2 = Len(TextBox2)
d3 = Len(TextBox3)
 
If InStr(1, Trim(TextBox1.Text), " ", vbTextCompare) = 0 And d2 > 0 And d1 > 0 And d3 > 0 And TextBox2 = TextBox3 Then
login = TextBox1
parol = TextBox2
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
TextBox1.Visible = False
TextBox2.Visible = False
TextBox3.Visible = False
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
CommandButton2.Visible = False
Else
MsgBox ("Перевірте правильність введення даних")
End If
End Sub
 
Private Sub CommandButton3_Click()
If TextBox4 = login And TextBox5 = parol And TextBox4 <> "" And TextBox5 <> "" Then
Image1.Visible = False
Image2.Visible = True
Label4.Visible = False
Label5.Visible = False
TextBox4.Visible = False
TextBox5.Visible = False
CommandButton4.Visible = True
Else
MsgBox ("Перевірте правильність введення даних")
End If
End Sub
 
 
Private Sub CommandButton4_Click()
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
TextBox1.Visible = False
TextBox2.Visible = False
TextBox3.Visible = False
CommandButton2.Visible = False
Label4.Visible = True
Label5.Visible = True
TextBox4.Visible = True
TextBox5.Visible = True
TextBox4 = ""
TextBox5 = ""
Image1.Visible = True
Image2.Visible = False
 
End Sub

If Asc(Right(TextBox2.Text, 1)) < 91 And Asc(Right(TextBox2.Text, 1)) > 64 Then
MsgBox "Пароль не может заканчиваться большой английской буквой"
End If