Как можно это переделать, чтобы нормально работало? (В задании нужно изменять значения x,y произвольно)

Private Sub Stend()
Dim x As Single, y As Single, R As Single
Dim C As Integer
x = InputBox("x=")
y = InputBox("y=")
R = Sqr(x ^ 2 + y ^ 2)
If R > 5 Then
C = 0
MsgBox '"Попадання поза мішенню"
Else
MsgBox '"Попадання у мішень"
End If
If R <= 1 Then C = 5
If R > 1 And R <= 2 Then C = 4
If R > 2 And R <= 3 Then C = 3
If R > 3 And R <= 4 Then C = 2
If R > 4 And R <= 5 Then C = 1
MsgBox "Результат" + Str(C)
End Sub

Private Sub Stend()
Dim x As Single, y As Single, R As Single
Dim C As Integer
x = InputBox("x=")
y = InputBox("y=")
R = Sqr(x ^ 2 + y ^ 2)
If R > 5 Then
MsgBox '"Попадання поза мішенню"
Else
MsgBox '"Попадання у мішень"
End If
Select Case R
Case Is <= 1
C = 5
Case 1 To 2
C = 4
Case 2 To 3
C = 3
Case 3 To 4
C = 2
Case 4 To 5
C = 1
Case Else
C = 0
End Select
MsgBox " Результат " + Str(C)
End Sub

Function GetFloatPoint() As String
Static g As String
If g = "" Then
   Dim i As Byte
    For i = 1 To 255
        If Not IsNumeric(Chr(i)) Then
            If IsNumeric("3" & Chr(i) & "555") Then
                If Val("3" & Chr(i) & "555") < 4 Then
                   g = Chr(i)
    Exit For
                End If
            End If
        End If
    Next
End If
GetFloatPoint = g
End Function
 
Private Sub Command3_Click()
Dim a As String
a = GetFloatPoint
Label2.Caption = a
End Sub

Private Sub Stend()
Dim x As Single, y As Single, R As Single
Dim C As Integer
   x = InputBox("x=")
   y = InputBox("y=")
   R = Sqr(x ^ 2 + y ^ 2)
   If R > 5 Then
      C = 0
      MsgBox '"Попадання поза мішенню"
   Else 
      MsgBox '"Попадання у мішень"
   End If
   If R <= 1 Then C = 5
   If R > 1 And R <= 2 Then C = 4
   If R > 2 And R <= 3 Then C = 3
   If R > 3 And R <= 4 Then C = 2
   If R > 4 And R <= 5 Then C = 1
   MsgBox "Результат" + Str(C)
End Sub
 
Private Sub Stend()
Dim x As Single, y As Single, R As Single
Dim C As Integer
   x = InputBox("x=")
   y = InputBox("y=")
   R = Sqr(x ^ 2 + y ^ 2)
   If R > 5 Then
      MsgBox '"Попадання поза мішенню"
   Else
      MsgBox "Попадання у мішень"
   End If
   Select Case R 
   Case Is <= 1
          C = 5
   Case 1 To 2
          C = 4
   Case 2 To 3
         C = 3
   Case 3 To 4
         C = 2
   Case 4 To 5
         C = 1
   Case Else
         C = 0
   End Select
   MsgBox " Результат " + Str(C)
End Sub

Dim h As String
Private Sub Command1_Click()
h = GetFloatPoint
Stend
End Sub
 
Private Sub Stend()
Dim x As Single, y As Single, R As Single
Dim C As Integer, x1 As String, y1 As String
 
  x1 = InputBox("x=")
  x = Prov(x1)
Label3.Caption = x
  y1 = InputBox("y=")
  y = Prov(y1)
Label3.Caption = y
  R = Sqr(x ^ 2 + y ^ 2)
If R > 5 Then
 C = 0
 MsgBox ("Мимо")
Else
 MsgBox ("Попали")
End If
If R <= 1 Then C = 5
If R > 1 And R <= 2 Then C = 4
If R > 2 And R <= 3 Then C = 3
If R > 3 And R <= 4 Then C = 2
If R > 4 And R <= 5 Then C = 1
 MsgBox "Результат" + Str(C)
End Sub
 
 
Function GetFloatPoint() As String
Static g As String
If g = "" Then
 Dim i As Byte
 For i = 1 To 255
  If Not IsNumeric(Chr(i)) Then
   If IsNumeric("3" & Chr(i) & "555") Then
    If Val("3" & Chr(i) & "555") < 4 Then
 g = Chr(i)
Exit For
    End If
  End If
 End If
Next
End If
GetFloatPoint = g
End Function
 
Function Prov(ByVal q As String) As String
Dim w As String, w1 As String
For i = 1 To Len(q)
 w = Mid(q, i, 1)
   If IsNumeric(w) = False Then
    w = h
   End If
 w1 = w1 + w
Next i
Prov = w1
End Function