'Hier den Code um Code (zB aus einer textBox) auszuführen
Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal StringToExec As _
  Long, yVal Any1 As Long, ByVal Any2 As Long, ByVal CheckOnly As Long) As Long
Public Variable As Variant 
 
Private Sub Command2_Click()
    ' Code checken
    Dim Code As String
    Code = Replace(txtCode.Text, vbCrLf, ":")
    MsgBox ExecuteCode(Code, True)
End Sub
 
Private Sub Command1_Click()
    ' Code ausführen
    Dim Code As String
    Code = Replace(txtCode.Text, vbCrLf, ":")
    Call ExecuteCode(Code, False)
End Sub
 
Private Function ExecuteCode(Code As String, Optional CheckOnly As Boolean) As _
  Boolean
ExecuteCode = EbExecuteLine(StrPtr(Code), 0&, 0&, CheckOnly) = 0
End Function
 
'Hier der Code um Text in eine textBox zu laden
Dim sFile As String
Dim iNumber As Integer
Dim lLen as Long
iNumber = FreeFile
sFile = "C:\deinCode.txt"
Open sFile For Input As iNumber
lLen = LOF(iNumber)
txtCode.Text = Input(sLen, iNumber)
Close iNumber