HELP PLEASE I need help. I did an EXPORT Fade, and now i need to make an Inport Fade, This is the code i have,:
'By PArts by EdwardMillen & Most by Alistair Baillie
Dim FadeColoursCount As Integer, NumColours As Long, FadeColoursString As String, FadeColoursArray() As String, WavyPos As Long, BoldPos As Long, StrikePos As Long
'On Error GoTo ErrorMsg
FadeColoursString = FadeData
'Check for wavy
WavyPos = InStr(1, FadeColoursString, ":")
If WavyPos <> 0 Then
'On Error GoTo ErrorCode
fadermain.wavy.Value = Mid(FadeColoursString, WavyPos + 1, 1)
fadermain.Bold.Value = Mid(FadeColoursString, WavyPos + 3, 1)
fadermain.strike.Value = Mid(FadeColoursString, WavyPos + 5, 1)
FadeColoursString = Left(FadeColoursString, WavyPos - 1)
End If
ContinueCode:
FadeColoursString = "#" & FadeColoursString
'On Error GoTo ErrorMsg
FadeColoursArray = Split(FadeColoursString, "#")
NumColours = UBound(FadeColoursArray)
FadeColoursCount = 1
Do Until FadeColoursCount = NumColours + 1
fadermain.ColourPicker(FadeColoursCount - 1).BackColor = FadeColoursArray(FadeColoursCount)
FadeColoursCount = FadeColoursCount + 1
Loop

'For FadeColoursCount = 1 To UBound(FadeColoursArray)
'fadermain.ColourPicker(FadeColoursCount).BackColor = FadeColoursArray(FadeColoursCount)
'fadermain.ColourPicker(FadeColoursCount).Visible = True
'fadermain.ColourPicker(FadeColoursCount).BackColor = FadeColoursArray(FadeColoursCount)
'Next
Dim NumColours2 As Integer
NumColours2 = NumColours - 1
Call DisplayStuff.NumberOfColoursFading(NumColours2)
Exit Function
ErrorMsg:
MsgBox "Error loading fade data!", , "Free Fader 7"
Exit Function
ErrorCode:
FadeColoursString = Left(FadeColoursString, WavyPos - 1)
GoTo ContinueCode



But i can't use any SPLIT functions. Can anyone help?
I am using VB5EE. Thanks