Private Python2VBText As New TextBox

' Test if-elif-...-else determining a letter grade.

Public Function letterGrade(score As Object)
    Dim letter As String
    if score >= 90 Then

        letter = "A"
    ElseIf  score >= 80 Then
        letter = "B"
    ElseIf  score >= 70 Then
        letter = "C"
    ElseIf  score >= 60 Then
        letter = "D"
    else
        letter = "F"
    End If

    Return letter

End Function
Public Sub main()
    Dim x As Integer
    x = InputBox("Enter a numerical grade: ")
    Dim letter As Object
    letter = letterGrade(x)
        Python2VBText.Text = Python2VBText.Text + "Your grade is " + (letter).toString + "." + vbNewLine
    Python2VBText.MultiLine = True
    Python2VBText.Width = 200
    Python2VBText.Height = 100
    Form1.Controls.Add(Python2VBText)
End Sub

'main()