Meldung bei fehlerhafter Standortermittlung.

Aviso/frmFrachtkostenBerechnen.vb

@@ -152,15 +152,17 @@ Public Class frmFrachtkostenBerechnen
 
             tbEUAnteil._value = 0.6
             tbNichtEUAnteil._value = 0.4
-
+            If distance = "0" Or distance = "" Then
+                MsgBox("Standort vom Abgangsort/Bestimmungsort kann nicht ermittelt werden!" & vbCr & "Bitte Eingabe prüfen")
+            End If
             lblDistanzEU.Text = "Distanz"
-            txbCalcDistanceEU._value = distance
-            lblDistanzNichtEU.Visible = False
-            txbCalcDistanceNichtEU.Visible = False
+                txbCalcDistanceEU._value = distance
+                lblDistanzNichtEU.Visible = False
+                txbCalcDistanceNichtEU.Visible = False
 
-        Else
+            Else
 
-            lblDistanzEU.Text = "Distanz"
+                lblDistanzEU.Text = "Distanz"
             txbCalcDistanceEU._value = distance
             lblDistanzNichtEU.Visible = False
             txbCalcDistanceNichtEU.Visible = False