Public Class User
    Property username As String
    Property password As String
    Sub New(ByVal _user As String, ByVal _password As String)
        Me.username = _user
        Me.password = _password
    End Sub

End Class

Dim U1 As New User("MyUsername", "MyPassword")
MsgBox(U1.username & Environment.NewLine & U1.password)