Dim VariableX As Integer
Dim vArr () As String
Dim Eingabe As String
 
Eingabe = Text1.Text 'In diesem Fall also "set VariableX 9"
 
vArr = Split(Eingabe, " ")
If LCase$(vArr(0)) = "set" Then VariableX = vArr(2)

Gruß
Marcus