Не могу найти ошибку в коде - VB

Формулировка задачи:

Помогите пожалуйста Объясните где ошибка

Dim n As String
 
Private Sub Command1_Click()
Select Case n
Case "+"
Text2.Text = "plus"
Case "-"
Text2.Text = "minus"
Case "/"
Text2.Text = "delenie"
Case "*"
Text2.Text = "umnozhenie"
Case Else
Text2.Text = "ne verno"
End Select
End Sub
 
Private Sub Form_Load()
n = Text1.Text
End Sub

Решение задачи: «Не могу найти ошибку в коде»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
n = Text1.Text
Select Case n
Case "+"
Text2.Text = "plus"
Case "-"
Text2.Text = "minus"
Case "/"
Text2.Text = "delenie"
Case "*"
Text2.Text = "umnozhenie"
Case Else
Text2.Text = "ne verno"
End Select
End Sub
                        