今から始めるという事なので、現行バージョンである VB9 すなわち「Visual Basic 2008」を
想像しましたが、質問内容の
> テキストボックス（Text1)に入力した数値が
> ロストフォーカス時に小数点第一で四捨五入し、
という発言からして、旧バージョンである VB6 をお使いのようですね。
(1998 年リリースの製品なので、流石に時代遅れの感が否めませんが…)

ちなみに VB8(2005)以降であれば、以下のように書けます。

Dim s As String = TextBox1.Text

Dim d As Decimal

If Decimal.TryParse(s, d) Then

    d = Decimal.Round(d, 0, MidpointRounding.AwayFromZero)

    s = d.ToString()

Else

    MsgBox("数値を入力してください")

End If

VB6だとすると、こうかな。

S = Text1.Text

S = CStr(Int(CDec(S) + CDec(".5")))