Ich hab ehrlich gesagt keine Ahnung von vb.net, ich wollte dich nur dezent darauf hinweisen, dass die inverse Cosinusfunktion (cos⁻¹) auch als Arcuscosinus bezeichnet wird (i.d.R. abgekürzt mit acos).
Wenn dann so:
txthubangle.Text = Math.Acos(1 - 2 * txthubdistance.Text / txthubpcd.Text)
wobei ich jetzt aber nicht weis ob in vb.net der Term in der Klammer von Haus aus als double berechnet wird.