Dim name,input,a,b
input="pls input:"
name=Inputbox(input)
IF name = "zwf" Then
a = "1111"
elseif name = "zwf2" Then
a = "zwf2222222"
Else:
a = "2222"
End If
b=a
Msgbox b
Dim name,input,a,b
input="pls input:"
name=Inputbox(input)
IF name = "zwf" Then
a = "1111"
elseif name = "zwf2" Then
a = "zwf2222222"
Else:
a = "2222"
End If
b=a
Msgbox b