Scientific notation in Visual Basic 2008?

        If Me.cboSteamOrCommunity.SelectedIndex = 0 Then
            Dim ID() As String = Split(txtID.Text, ":")

            If CDbl(ID(1)) = 1 Then
                Dim intA As Integer = 1.0
                Dim dblSteamID As Double
                Dim dblID As Integer
                Const cdblNumber As Double = 76561197960265728
                Dim dbl2 As Integer = 2
                Dim strSteamID As Double
                Dim intSteamID As Double
                dblID = Convert.ToInt32(ID(2))
                dblSteamID = (cdblNumber + intA + (dblID * dbl2))
                strSteamID = dblSteamID.ToString("F0")
                Dim SteamID() As String = Split(CStr(strSteamID), ".")
                txtID.Text = CStr(strSteamID)
                lblID.Text = dblSteamID
            End If