Jag håller på att kruxa med en Loop
som ska stanna vid en textbox, där den läser av Texten innan den går vidare.
Ungefär som det funkar med InputBox & msgBox.

Hej

Dim aControl As Control
For Each aControl In Form1
With aControl
If TypeOf aControl Is TextBox Then
' Plats för åtgärd
End If
End With
Next 'aControl

Låter som du vill visa ett formulär modalt...

'Form: Form1
Option Explicit

Private Sub Command1_Click()
Dim sTemp As String
Do
sTemp = Form2.GetText
Loop Until True
End Sub


'Form: Form2
Option Explicit

Private mText As String

Public Function GetText(Optional Text As String) As String
mText = Text
Show vbModal
GetText = mText
End Function

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
Text1 = mText
End Sub

Private Sub Form_Unload(Cancel As Integer)
mText = Text1
End Sub