Module Hilfsroutinen_TextBox
 
    Function HoleText(ByVal TextBoxIN As System.Windows.Forms.TextBox, ByRef _
      strTextOUT As String) As Boolean
 
        strTextOUT = Nothing
 
        Try
            strTextOUT = TextBoxIN.Text
        Catch ex As Exception
            GoTo Fehlerausgang:
        End Try
 
        Return True
    Fehlerausgang:
        Return False
    End Function
 
    Function SetzeText(ByRef TextBoxINOUT As System.Windows.Forms.TextBox, _
      ByVal strTextIN As String) As Boolean
 
        Try
            TextBoxINOUT.Text = strTextIN
        Catch ex As Exception
            GoTo Fehlerausgang:
        End Try
 
        Return True
    Fehlerausgang:
        Return False
    End Function
 
End Module