Public Function RestlicheSurfzeitAuslesen() As String
            ' Aus der Variable "guthaben", die Restlichesurzeit berechnen 
            ' lassen.
            ' (Siehe Rechenformel in Form1...)
            ' Der Benutzer kann den Stundenwert beliebig ändern.
            ' Jetzt arbeiten wir zum Beispiel mit 1 Euro pro 1 Stunde!
            Return "1:00:00 h"
        End Function

    Public Function RestlicheSurfzeitAuslesen() As String

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)