Private Type pt
 x As Double
 y As Double
End Type
 
Dim pA As pt
Dim pB As pt
Dim pC As pt
Dim mp As pt
 
 
Private Sub Command1_Click()
  mp = p2c(pA, pB, pC)
  Print mp.x, mp.y
End Sub
 
Private Sub Form_Load()
  tx1.Text = 5
  tx2.Text = 0
  tx3.Text = 15
  ty1.Text = 0
  ty2.Text = 15
  ty3.Text = 0
 
  pA.x = CDbl(tx1)
  pA.y = CDbl(ty1)
  pB.x = CDbl(tx2)
  pB.y = CDbl(ty2)
  pC.x = CDbl(tx3)
  pC.y = CDbl(ty3)
End Sub

_______________________________________________________________
Jeder Mensch ist anders. Darum nimm jeden Menschen so wie er ist.