CodeItBetter Programming Another VB Programming Blog

'Coding Basics - How to convert Octal to Decimal number
Public Function ConvertOctalToDecimal(BinVal As String) As String
    Dim iVal#, temp#, i%, Length%
    Length = Len(BinVal)
    For i = 0 To Length - 1
        temp = CInt(Mid$(BinVal, Length - i, 1))
        iVal = iVal + (temp * (8 ^ i))
    Next i
    ConvertOctalToDecimal = iVal
End Function