Function to convert Octal to Decimal number: Return to List

  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

See also:
Function to Convert Decimal to Hexadecimal
Function to Convert Binary to Decimal
Function to Convert Binary to Octal
Hexadecimal to Decimal Conversion