Private Sub SaveToFileUsernamePassword()
    Dim UserPasFile As New StreamWriter("UsernamePassword.txt", True)
    UserPasFile.WriteLine(txtUsernameSin.Text & "," & PasswordSign)
    UserPasFile.Close()
End Sub