ごめんなさい、チョンボばかりで…

 with UserInfo

   ：

  end with

はクラスには使えないので、直接

  UserInfo.ID = id

  UserInfo.UserName = RESULT

として下さい。

またUserInfo() as Stringとするなら、呼び出し側も

If UserInfo(...) IsNot Nothing Then

のようにしないと、実行時に「StringからBooleanへ変換できません」のようなエラーが発生します。

そしてUserInfo.vbですが、クラスの中でクラスを定義する必要はないです。

ところで、Module1.vbはどうなっていますか？

後は、本題の取得できたユーザ名をどこでTextBox.Textに設定するかですね。