The Weird and The Wonderful

i = getcountofsomething()
For iCount = 0 To i
  If something(iCount)) Then
    bOk = True
    Exit For
  End If
Next iCount

mlNumOfSomething = SomeClass.GetSomething(anIDArray())

For lli = 1 To mlNumOfSomething

  SomeClass.GetSomeInfo anIDArray(lli), Description:=aDescription
  ReDim Preserve msAllAgencies(1 To mlNumOfSomething)
  msSomeArray(lli) = aDescription

Next lli

<code>
Private Function SomeCrappyCode(lsDate As String) As Long
  On Error GoTo ErrorHandler

  Dim llRetval
  Dim llPosition As Long
  
  'Updates the US Month Name in SQL Date to Locale
  'Month Name in Locale Language
  
  llPosition = InStr(lsDate, "Jan")
  If llPosition > 0 Then
    lsDate = Left(lsDate, llPosition - 1) & Format(DateSerial(98, 1, 1), "MMM") & right(lsDate, Len(lsDate) - 3)
    llRetval = True
    Exit Function
  End If
  
  'Copy & paste the above code block 11 more times for Feb...December  

  mlUpdateMonthStringLocale = llRetval
    
Exit Function
ErrorHandler:

  WriteErrorLogEntry Err.number, "SomeCrappyCode", Err.description
  Exit Function
  Resume

End Function
    
  
</code>