Meinst du das so?
Also in VB6 ist es so:

Private Sub Command1_Click()
If Text1.Text = "schließen" Then
End
End If
End Sub