По номеру месяца вывести сообщение о времени года.

Option Explicit
 
Private Sub Command1_Click()
    Dim numberMounth As Byte
    
    numberMounth = InputBox("Введите номер месяца:")
    
    If numberMounth < 13 Then
        If numberMounth > 0 And numberMounth < 3 Then
            Me.Caption = "Зима"
            Image1.Picture = LoadPicture(App.Path & "\Зима.jpg")
        End If
        
        If numberMounth >= 3 And numberMounth < 6 Then
            Me.Caption = "Весна"
            Image1.Picture = LoadPicture(App.Path & "\Весна.jpg")
        End If
        
        If numberMounth >= 6 And numberMounth < 9 Then
            Me.Caption = "Лето"
            Image1.Picture = LoadPicture(App.Path & "\Лето.jpg")
        End If
        
        If numberMounth >= 9 And numberMounth < 12 Then
            Me.Caption = "Осень"
            Image1.Picture = LoadPicture(App.Path & "\Осень.jpg")
        End If
        
        If numberMounth = 12 Then
            Me.Caption = "Зима"
            Image1.Picture = LoadPicture(App.Path & "\Зима.jpg")
        End If
    Else
        MsgBox "Введён неправильный номер месяца"
    End If
End Sub