Private Sub Command1_Click() 
Dim VBS As New MSScriptControl.ScriptControl 
Dim Code As String 

Code = "Sub Test() " & vbCrLf & _ 
"a=100 & vbCrLf & "msgbox a" & vbCrLf & _ 
"End Sub" 

VBS.Language = "VBScript" 
VBS.AddCode Code 
VBS.Run "Test" 
End Sub