Mid$ Function Not Working

[nickTHEguitarist]

Can someone tell me what is wrong with this code. When I try to run it there is a run time error 5 "invalid call, function"...

strB = "----------------------------------------"
 
txtAmajSpc.Text = intAmajSpc
        lngPos = Val(intAmajSpc)
        lngPos = lngPos
        strFretNumb = "2"
        strB = Left$(strB, lngPos - 1) & strFretNumb & Mid$(strB, lngPos + 1)

txtAmajSpc is a textbox on form where user inputs a number

Anyone know what's wrong?!

[RhinoBull]

What is intAmajSpc and how do you assign value to it?
Why do you need this: txtAmajSpc.Text = intAmajSpc ???
Since dfj appears to be an integer then you don't have to use Val() to get its value: lngPos = intAmajSpc
After all the following is all you need (or similar):

Private Sub Command1_Click()
Dim lngPos%, strFretNumb$, strB$
    
    strB = "----------------------------------------"
 
    lngPos = 3
    strFretNumb = "2"
    strB = Left$(strB, lngPos - 1) & strFretNumb & Mid$(strB, lngPos + 1)
    Debug.Print strB
 
End Sub

[nickTHEguitarist]

I need txtAmajSpc.Text = AmajSpc so that the user can assign a value to the lngPos long.

[MartinLiss]

Well you sure don't need lngPos = lngPos, but what is the value of lngPos? Put a breakpoint on the strB = Left$(strB, lngPos - 1) & strFretNumb & Mid$(strB, lngPos + 1) line and see what the values are.

[szlamany]

If the user has already filled the TEXT BOX, then that first assignment is backwards.

strB = "----------------------------------------"

        intAmajSpc = Va(txtAmajSpc.Text) ' This is probably more what you want
        lngPos = Val(intAmajSpc)
        lngPos = lngPos ' This is not needed
        strFretNumb = "2"
        strB = Left$(strB, lngPos - 1) & strFretNumb & Mid$(strB, lngPos + 1)

[nickTHEguitarist]

[Highlight=VB]

strB = "----------------------------------------"
 
txtAmajSpc.Text = strAmajSpc
        lngPos = Val(strAmajSpc)
        strFretNumb = "2"
        strB = Left$(strB, lngPos - 1) & strFretNumb & Mid$(strB, lngPos + 1)

My string strAmajSpc has a value of zero. In the form I have a text box (txtAmajSpc) that the user can input a number in. Why does it set the value to zero when I click the command push button (code)

[szlamany]

If this line of code is in the command button click event...

txtAmajSpc.Text = strAmajSpc

And if you said strAmajSpc has a 0 in it...

Then why would you not expect that line of code to move the 0 into the TEXTBOX?

These two lines of code will that the value of the TEXT BOX - put it in the string first, and then assign it to the longword variable.

        strAmajSpc = txtAmajSpc.Text
        lngPos = Val(strAmajSpc)

[nickTHEguitarist]

You're a genius, did I mention that you are the smartest person alive

Thanks alot.

[nickTHEguitarist]

Ok that works now. I just need to know how I can combine this:

AStart = strHE & vbCrLf & strB & vbCrLf & strG & vbCrLf & strD & vbCrLf & strA & vbCrLf & strLE
        txtWriteTab.Text = AStart

to this:

BStart = strHE & vbCrLf & strB & vbCrLf & strG & vbCrLf & strD & vbCrLf & strA & vbCrLf & strLE
        txtWriteTab.Text = BStart

Only when the "Astart" is in the textbox, or when "Bstart" is in the textbox. Is there an If and Then statement for this?