[VisualBasic] Problem??!?!

Private Sub Form_Load()
 Text1.Text = Data_ReadAll("c:\++###.txt")
End Sub

Private Sub Command1_Click()
 If Text1.Text = Text2.Text Then 
 Command2.Enabled = True
 Else
 Msgbox "Nicht gleich"
 End if
End Sub

Private Function Data_ReadAll(ByRef Filename As String) As String
 Dim a As Long
 On Error Resume Next
 
 If Dir$(Filename, vbNormal) <> "" Then
 a = FreeFile
 Open Filename For Binary As #a
 Data_ReadAll = Space$(LOF(a))
 Get #a, , Data_ReadAll
 Close #a
 End If
End Function

If Trim(Text1.Text) = Trim(Text2.Text)
 Command3.Enabled = True
Ese
 Msgbox "Ungleich"
End If