VBA - Sinus eines Winkels berechnen

Hallo zusammen

Ich habe im Studium eine kleine VBA Aufgabe zu lösen.
Fragestellung:

Erstellen Sie einen Taschenrechner, der den Sinus eines Winkels berechnet.
Eingabe: Winkel von 0 bis 360 Grad;
Ausgabe: Sinus-Wert (-1 bis +1)
Das Programm soll möglichst robust und stabil laufen, d.h. bei Falscheingaben nicht abstürzen bzw. falschen Eingabewerten erneut fragen

Anforderungen:
Sinus korrekt berechnet
Werte kleiner 0 und grösser 360 abgewiesen
Dezimalwerteingabe von Winkel (z.B. 180.3) verarbeitet
Falscheingabe abgewiesen
Abbrechen möglich


Ich habe einen Code vorbereitet.
Leider weiss ich nicht ob dieser "robust" genug ist. Könnt ihr mit Tipps für die Verbesserung geben (Am besten als Code zum ausprobieren und testen)


*Code*
Option Explicit
Sub Sinus()

Dim Pi As String 'Definiert die Variabel
Dim Eingabe As Double 'Definiert die Variabel
Dim Zwischenresultat As Double 'Definiert die variabel
Dim Resultat As Double 'Definiert die variabel

Pi = 3.1415 'Diese Zeile definiert Pi

Eingabe = InputBox("Bitte geben Sie den Winkel ein:") 'Hier wird die InputBox gemacht

Zwischenresultat = Sin(Eingabe * Pi / 180) 'Diese Zeile gibt das Resultat aus, jedoch nicht gerundet
Resultat = Round(Zwischenresultat, 2) 'Diese Zeile Rundet das Resultat auf zwei Stellen.

MsgBox Resultat 'Diese MessageBox gibt das Resultat definitiv aus (im Rad Mass)


End Sub

*Code*

Vielen Dank und Grüsse
daniel4916x

Dim Pi 'Definiert die Variabel  
Dim Eingabe 'Definiert die Variabel  
Dim Resultat  'Definiert die variabel  

Pi = 3.1415

do while true
Eingabe = InputBox("Bitte geben Sie den Winkel ein:") 'Hier wird die InputBox gemacht  
if Eingabe = "" then exit do  
If IsNumeric(Eingabe) then 
  if Eingabe >= 0 and Eingabe <= 360 then
      Resultat = Round(Sin(Eingabe * Pi / 180),2)
      MsgBox "Ergebnis: " & Resultat   
      exit do
  else
      Msgbox "Falsche Eingabe: Wert liegt nicht zwischen 0 und 360", vbExclamation  
  end if
else
   Msgbox "Falsche Eingabe: Wert ist nicht numerisch", vbExclamation  
End if
Loop

Sub Sinus()
    Dim Eingabe As Variant
    Const Pi As Double = 3.141592654

    Eingabe = InputBox("Bitte geben Sie den Winkel ein:")  
    
    ' InputBox wurde abgebrochen oder es erfolgte keine Eingabe:  
    If Eingabe = "" Then Exit Sub  

    ' Eingabefehler:  
    While Not IsNumeric(Eingabe) Or Eingabe < 0 Or Eingabe > 360 'Ein If Statement wäre hier äquivalent zu verwenden.  
        MsgBox "Falscheingabe.", vbCritical, "Fehler"  
        Call Sinus 'die Sinus-Funktion erneut (rekursiv) aufrufen  
        Exit Sub
    Wend

    MsgBox Sin(Eingabe * Pi / 180), vbInformation, "Ergebnis"  
End Sub