Can someone check this code to see If I could make it smaller

[SandmanSamR]

I was told to make a program that makes the user input a numerical value of 1-999 and the computer prints out that number in letters (i.e "123" = "One hundred and twenty three"). This is the solution I came up with:

Dim valu As Integer
Option Explicit
 
 
Private Sub Command1_Click()
lblConverted.Caption = ""
valu = val(Text1.Text)
 
If valu >= 900 Then
    valu = valu - 900
    lblConverted.Caption = "Nine Hundred "
ElseIf valu >= 800 Then
    valu = valu - 800
    lblConverted.Caption = "Eight Hundred "
ElseIf valu >= 700 Then
    valu = valu - 700
    lblConverted.Caption = "Seven Hundred "
ElseIf valu >= 600 Then
    valu = valu - 600
    lblConverted.Caption = "Six Hundred "
ElseIf valu >= 500 Then
    valu = valu - 500
    lblConverted.Caption = "Five Hundred "
ElseIf valu >= 400 Then
    valu = valu - 400
    lblConverted.Caption = "Four Hundred "
ElseIf valu >= 300 Then
    valu = valu - 300
    lblConverted.Caption = "Three Hundred "
ElseIf valu >= 200 Then
    valu = valu - 200
    lblConverted.Caption = "Two Hundred "
ElseIf valu >= 100 Then
    valu = valu - 100
    lblConverted.Caption = "One Hundred "
End If
 
If valu >= 90 Then
    valu = valu - 90
    lblConverted.Caption = lblConverted.Caption & "and Ninty-"
ElseIf valu >= 80 Then
    valu = valu - 80
    lblConverted.Caption = lblConverted.Caption & "and Eighty-"
ElseIf valu >= 70 Then
    valu = valu - 70
    lblConverted.Caption = lblConverted.Caption & "and Seventy-"
ElseIf valu >= 60 Then
    valu = valu - 60
    lblConverted.Caption = lblConverted.Caption & "and Sixty-"
ElseIf valu >= 50 Then
    valu = valu - 50
    lblConverted.Caption = lblConverted.Caption & "and Fifty-"
ElseIf valu >= 40 Then
    valu = valu - 40
    lblConverted.Caption = lblConverted.Caption & "and Fourty-"
ElseIf valu >= 30 Then
    valu = valu - 30
    lblConverted.Caption = lblConverted.Caption & "and Thirty-"
ElseIf valu >= 20 Then
    valu = valu - 20
    lblConverted.Caption = lblConverted.Caption & "and Twenty-"
End If
 
If valu >= 19 Then
    lblConverted.Caption = lblConverted.Caption & "and Ninteen"
 
ElseIf valu >= 18 Then
    lblConverted.Caption = lblConverted.Caption & "and Eighteen"
 
ElseIf valu >= 17 Then
    lblConverted.Caption = lblConverted.Caption & "and Seventeen"
 
ElseIf valu >= 16 Then
    lblConverted.Caption = lblConverted.Caption & "and Sixteen"
 
ElseIf valu >= 15 Then
    lblConverted.Caption = lblConverted.Caption & "and Fifteen"
 
ElseIf valu >= 14 Then
    lblConverted.Caption = lblConverted.Caption & "and Fourteen"
 
ElseIf valu >= 13 Then
    lblConverted.Caption = lblConverted.Caption & "and Thirteen"
 
ElseIf valu >= 12 Then
    lblConverted.Caption = lblConverted.Caption & "and Twelve"
 
ElseIf valu >= 11 Then
    lblConverted.Caption = lblConverted.Caption & "and Eleven"
 
ElseIf valu >= 10 Then
    lblConverted.Caption = lblConverted.Caption & "Ten"
 
ElseIf valu >= 9 Then
    lblConverted.Caption = lblConverted.Caption & "Nine"
 
ElseIf valu >= 8 Then
    lblConverted.Caption = lblConverted.Caption & "Eight"
 
ElseIf valu >= 7 Then
    lblConverted.Caption = lblConverted.Caption & "Seven"
 
ElseIf valu >= 6 Then
    lblConverted.Caption = lblConverted.Caption & "Six"
 
ElseIf valu >= 5 Then
    lblConverted.Caption = lblConverted.Caption & "Five"
 
ElseIf valu >= 4 Then
    lblConverted.Caption = lblConverted.Caption & "Four"
 
ElseIf valu >= 3 Then
    lblConverted.Caption = lblConverted.Caption & "Three"
 
ElseIf valu >= 2 Then
    lblConverted.Caption = lblConverted.Caption & "Two"
 
ElseIf valu >= 1 Then
    lblConverted.Caption = lblConverted.Caption & "One"
    
End If
 
 
 
End Sub