OK, so I got it to work for a sub, where there is a will there usually is a way.
Thanks for your help.
Private Sub Command5_Click()
Dim str1 As String
str1 = [Forms]![form1]![Text3]
str1 = Mid(str1, 1, 50)
'MsgBox str1
Application.Run str1
End Subthe sub is in a module
Sub test1()
MsgBox...