Naja hab jetzt nur versucht die Rechnung hinzubekommen klappt aber net.
Bin ziemlich noob da drin. Hier die Source das mit DIM und so kapier ich net.

Code:
Public Class Form1

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CMDEnde.Click
        End
    End Sub
    Dim Personen As Integer
    Dim Preis As Integer
    Dim Gesamt As Integer
    Dim Plaetze As Integer
    Private Sub CMDRechnen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CMDRechnen.Click
        Personen = Val(BSFLPersonen.Text)
        Preis = Val(TFPreis.Text)
        Gesamt = Val(TFGesamt.Text)
        Plaetze = Val(TFPlaetze.Text)

        If Personen < 10 Then
            Preis = Personen * 10
        Else : Preis = Personen * 8

        End If
        Gesamt = Gesamt - Preis
        Plaetze = Plaetze - Personen
    End Sub
End Class
Wär cool wenn mir das einer schreiben könnte damit ich selber gucken kann wo die Fehler liegen.
MFG Kevinski92