Conditionally changing tab color with VBA

I've been searching the Internet for hours, and I can't find anything that fits my needs.

I want to be able to change tab colors automatically so that the current months tab (MonthName Year) is red, past months turn black, and future months are blue.

Everything I've found so far changes color based on a particular cell, rather than a month, and I don't want to have to update stuff manually every month.

Thanks y'all!

Thank you so much for giving me a starting place. It works but I made a change to accommodate black for the past, blue for present, and red for the future.

Sub ColorTabs()
   Dim i As Integer, vMonth, vYear
   Dim vMonths
   
   vMonths = Array("January", "February", "March", "April", "May", _
            "June", "July", "August", "September", "October", "November", "December")
             
   For i = 1 To Worksheets.Count
      vMonth = Split(Sheets(i).Name, " ")(0)
      vYear = Split(Sheets(i).Name, " ")(1) * 1
      vMonth = Application.Match(vMonth, vMonths, 0)
      
      If vMonth < Month(Date) And vYear <= Year(Date) Then
         Sheets(i).Tab.Color = RGB(0, 0, 0)
      ElseIf vMonth = Month(Date) And vYear = Year(Date) Then
         Sheets(i).Tab.Color = RGB (0, 0, 255)
      Else: Sheets(i).Tab.Color = RGB(255, 0, 0)
      End If
   Next i
End Sub

Problem is, no matter how I change things I can't get the 2012 entries to change to black. I'm not really sure where the problem is.

Ah ha! Got it figured out. Probably not the most elegant or efficient way, but it's doing what I want. That's for your help!

Sub ColorTabs()
   Dim i As Integer, vMonth, vYear
   Dim vMonths
   
   vMonths = Array("January", "February", "March", "April", "May", _
            "June", "July", "August", "September", "October", "November", "December")
             
   For i = 1 To Worksheets.Count
      vMonth = Split(Sheets(i).Name, " ")(0)
      vYear = Split(Sheets(i).Name, " ")(1) * 1
      vMonth = Application.Match(vMonth, vMonths, 0)
      
      If vMonth <> Month(Date) And vYear < Year(Date) Or _
      vMonth < Month(Date) And vYear <= vYear(Date) Then
         Sheets(i).Tab.Color = RGB(0, 0, 0)
      ElseIf vMonth = Month(Date) And vYear = Year(Date) Then
         Sheets(i).Tab.Color = RGB (0, 0, 255)
      Else: Sheets(i).Tab.Color = RGB(255, 0, 0)
      End If
   Next i
End Sub