Hej!
Jag har ett problem. Jag vill skriva in tex 125,2+35,2 i en textruta.
Jag vill seda ta ut tecknen före +, -, * eller / till en sträng och tecknen efter till en annan. Jag vill även ta ut räknetecknet. Jag ska sedan skicka dem till en funktion som utför en uträkning. Funktionen tror jag att jag klarar, men hur delar jag strängen?

Jag har provat med koden som följer, men den fungerar inte.

Dim allt As String
Dim tecken As Integer
Dim tal1 As String
Dim tal2 As String
allt = txtFonster.Text
tecken = InStr(allt, ("+" Or "-" Or "*" Or "/"))
tal1 = Left(allt, ("+" Or "-" Or "*" Or "/") - 1)
tal2 = Right(allt, ("+" Or "-" Or "*" Or "/") - 1)

Jag undrar även hur man sätter färg på en knapps caption.

Tacksam för svar

Hej i den stilla OS natten
Förslag till principlösning,kan säkert lösas på annat sätt.

Option Explicit
Private Sub Command1_Click()
Dim tal1 As String, tal2 As String, operator As String
Dim pos As Long, sLen As String
sLen = Len(Text1.Text)
If InStr(Text1.Text, "+") Then operator = "+"
If InStr(Text1.Text, "-") Then operator = "-"
If InStr(Text1.Text, "*") Then operator = "*"
If InStr(Text1.Text, "/") Then operator = "/"
If operator <> "" Then
pos = InStr(Text1.Text, operator)
Else
Exit Sub
End If
tal1 = Trim$(Left$(Text1.Text, pos - 1))
tal2 = Trim$(Right$(Text1.Text, sLen - pos))
Label1 = tal1
Label2 = tal2
Label3 = operator
End Sub

Beträffande knappen rekomenderar jag Nettans gamla tips
http://sevillaonline.com/ActiveX/

Här hittar du bla ARbutton och en massa annat bra!!
Arbutton kan du ändra färg på vid mouseOn och byta bilder på vid mouseOn.

mvh
Sven