add :Me.TextBox2.Text = CLng(Me.TextBox1.Text).ToString("###,###,###")
del :While strAmountTemp.IndexOf(",") <> -1
strAmountTemp = strAmountTemp.Remove(strAmountTemp.IndexOf(","), 1)
End While
add :Me.TextBox2.Text = CLng(Me.TextBox1.Text).ToString("###,###,###")
del :While strAmountTemp.IndexOf(",") <> -1
strAmountTemp = strAmountTemp.Remove(strAmountTemp.IndexOf(","), 1)
End While