Private Sub handle_but_login_online() Handles but_login_online.Click
  If userAuth_online_db() Then 'Diese Funktion funktioniert immer noch 
  ' einwandfrei :)
    'Test-Variablen um den Input der fehlerhaften Funktion zu überprüfen
    Dim test_string As String = "online"
    Dim test_integer As Integer = 1
    '
    '... Hier kommt eine ganze Menge funktionierender Quellcode
    '... Dieser Teil hat keine Auswirkung auf die fehlerhafte Funktion
    '
    Try 'Hab ich eingefügt damit ich den Fehlercode bekomme
      main.system_setup(test_string, test_integer) 'Hier gibt es den Fehler ( 
      ' Ohne Try wird diese Zeile im Visual Studio Gelb markiert)
      main.Show()
    Catch ex As Exception
      MessageBox.Show(ex.Message)
    End Try
    '
    '... Weiterer irrelevanter Code
    '
  Else
    'Dieser Case ist irrelevant
  End If
End Sub

'// Public setup function
    Public Function system_setup(ByVal setup_mode As String, ByVal setup_user _
      As Integer) As Boolean 'In dieser Zeile habe ich die Variable setup_user 
    ' von Typ String zum Typen Integer geändert
 
        '// Setup Mode
        If system_setup_mode(setup_mode) Then
            '// Setup User
            If system_setup_user(setup_user) Then
                Return True
            End If
        End If
 
        Return False
    End Function
 
    '// Setting Up system-user
    Private Function system_setup_user(ByVal setup_user As Integer) As Boolean
    'Hier hab ich natürlich die Variable auch von String auf Integer geändert
        Return Me.system_user.set_newUser(setup_user)
    End Function
 
    '// Setting Up system-mode
    Private Function system_setup_mode(ByVal setup_mode As String) As Boolean
 
        '// Check if mode is valid
        If setup_mode = "offline" Then
            Me.system_mode = "offline"
            system_setup_ui_offline()
            Return True
        ElseIf setup_mode = "online" Then
            Me.system_mode = "online"
            Return True
        End If
 
        Return False
    End Function