' Prüfen, ob es überhaupt schon 2 Werte gibt.
If LÜPX1Pos.Text <> "" And LÜPX2Pos.Text <> "" Then
    ' Hier wird erst der maximalste Wert von den beiden ermittelt und dann der 
    ' kleinste von den Beiden Werten. Anschließend wird die Differenz ermittelt
    LÜPInCM.Text = Math.Max(Val(LÜPX2Pos.Text), Val(LÜPX1Pos.Text)) - Math.Min( _
      Val(LÜPX2Pos.Text), Val(LÜPX1Pos.Text))
    ' Hier wird nun die Differenz in Pixel umgerechnet in mm
    LÜPInCM.Text = Format(LÜPInCM.Text * 0.113882863340564, "0 mm")
End If