Splitting and Sending [RESOLVED]

[Prodian]

I want to split a number , lets say 1435 by every single number so I get an array that returns Number(0) = 1, Number(1) = 4, Number(2) = 3, Number(3) = 5. How do I do that?
Also I need it so that a String, strPath, has the same data as all forms of the project. How do i dot that?

[lintz]

Define strPath as a global variable in a module.

Dim MyNumber() As Integer
Dim SplitNumber As Long
Dim i As Integer
 
SplitNumber = "1435"
ReDim MyNumber(Len(SplitNumber))
 
For i = 1 To Len(SplitNumber)
 
MyNumber(i) = Mid$(SplitNumber, i, 1)
 
Next

[CVMichael]

Also I need it so that a String, strPath, has the same data as all forms of the project. How do i dot that?

Ahh... What ?

[jeroen79]

Dim i As Long
Dim a As String
Dim b() As Byte
 
    a = "12345"
 
    b = a
 
    Debug.Print a, UBound(b)
    For i = 0 To UBound(b) Step 2
        Debug.Print Chr(b(i)), Chr(b(i + 1))
    Next i

Now every even element will contain the ascii value of the character from the string.

[Prodian]

Ahh... What ?

I have this string that holds the path of a file on one form. I want another form to have the same string with the same value, and if it is cahnged on one form it will be changed on the other.

[jeroen79]

Make a global (Public) variable or give the form a property that returns this string and let all other forms refer to this property.

[Prodian]

Thanks for the quick responses.