Dim sumsp1, sumsp2, sumsp3, sumsp4, sumsp5 As Decimal, bock As Integer
sumsp1 = 1 : sumsp2 = 2 : sumsp3 = 3
sumsp4 = 4 : sumsp5 = 5 : bock = 6
 
'Alle Werte zusammenfassen als Zeichenfolge
Dim contents As String = _
    String.Join(";", sumsp1, sumsp2, sumsp3, sumsp4, sumsp5, bock)
 
Dim enc As New System.Text.UTF8Encoding
 
If Not IO.Directory.Exists("C:\dokodat") Then
   IO.Directory.CreateDirectory("C:\dokodat")
End If
 
'Zeichenfolge speichern
IO.File.WriteAllText("C:\dokodat\spielstand.txt", contents, enc)
 
'Zeichenfolge lesen        
Dim contents2 As String = _
    IO.File.ReadAllText("C:\dokodat\spielstand.txt", enc)
 
'Zeichenfolge zerlegen in Variablenabschnitte
Dim parts() As String = contents2.Split(";"c)
 
'Zeichenfolgen umwandeln und zuweisen
sumsp1 = CDec(parts(0))
sumsp2 = CDec(parts(1))
'.....