Можно ли сократить приведенный код календаря - VB

Dim xmonth As Long
Dim xday As Integer
Dim xdt As Long
Dim xyear As Long

Private Sub Form_Load()
xmonth = Month(Now)
If xmonth = 1 Then
Label1.Caption = "Январь"
End If
If xmonth = 2 Then
Label1.Caption = "Февраль"
End If
If xmonth = 3 Then
Label1.Caption = "Март"
End If
If xmonth = 4 Then
Label1.Caption = "Апрель"
End If
If xmonth = 5 Then
Label1.Caption = "Май"
End If
If xmonth = 6 Then
Label1.Caption = "Июнь"
End If
If xmonth = 7 Then
Label1.Caption = "Июль"
End If
If xmonth = 8 Then
Label1.Caption = "Август"
End If
If xmonth = 9 Then
Label1.Caption = "Сентябрь"
End If
If xmonth = 10 Then
Label1.Caption = "Октябрь"
End If
If xmonth = 11 Then
Label1.Caption = "Ноябрь"
End If
If xmonth = 12 Then
Label1.Caption = "Декабрь"
End If
 
xday = Weekday(Date, vbMonday)
If xday = 1 Then
Label2.Caption = "Понедельник"
End If
If xday = 2 Then
Label2.Caption = "Вторник"
End If
If xday = 3 Then
Label2.Caption = "Среда"
End If
If xday = 4 Then
Label2.Caption = "Четверг"
End If
If xday = 5 Then
Label2.Caption = "Пятница"
End If
If xday = 6 Then
Label2.Caption = "Суббота"
End If
 
xdt = Day(Now)
Label3 = xdt
 
xyear = Year(Now)
Label4 = xyear
End Sub

Private Sub Label3_Click()
 
End Sub