Public Guthaben As Decimal
Public Faktor As Double = 1.0 '1 Stunde = 1 €
 
Public Function RestlicheSurfzeitAuslesen() As TimeSpan
  Return TimeSpan.FromHours(Guthaben * Faktor)
End Function

Me.Label4.Text = String.Format("Guthaben:{0}{1:C}", vbNewLine, guthaben)
Me.Label1.Text = String.Format("Surfzeit:{0}{1} h", vbNewLine, _
  RestlicheSurfzeitAuslesen)