Could this code be written in a better way?
For r As Integer = 1912 To 1996 Step 12 zodiac = “Rat” If uYear = r Then MsgBox(“Hi ” & userName & “, your chinese zodiac is ” & zodiac) End If Next For o As Integer = 1913 To 1997 Step 12 zodiac = “Ox” If uYear = o Then MsgBox(“Hi ” & […]