101010101

Dim admin As String
Dim income As Decimal
Dim replies As Integer
Dim tpMembers As Integer
Const tpCost As Integer = 5

threadTitleLabel.Text = "Visual Basic"

admin = xhinTextBox.Text
tpMembers = Decimal.Parse(tpSignUpTextBox.Text)
income = tpMembers * tpCost
incomeLabel.Text = income.ToString("C")

adminNoticeLabel.Text = "Hello, " & admin & ". Currently, there are " & tpMembers & "Team Phoenix Members. Total income is " & incomeLabel.Text

Me.Close()