Med detta exp så skulle jag vilja få värdet P att bara bli udda siffror 1-9

Dim P As Integer
For P = 1 To 9
Text = Mid(Text1, P, 2)
Next P



Sören

Udda
<code>
Private Sub Command1_Click()
Dim P As Long
Text1.Text = ""
For P = 1 To 9 Step 2
Text1.Text = Text1.Text & " " & P
Next 'P
End Sub
</code>

Jämna
<code>
Private Sub Command1_Click()
Dim P As Long
Text1.Text = ""
For P = 0 To 8 Step 2
Text1.Text = Text1.Text & " " & P
Next 'P
End Sub
</code>

Tusen tack

Och om du i allmänhet vill kolla om ett tal är udda eller jämt kan du använda
If Tal Mod 2 Then
'Udda
Else
'Jämt
End If

Eller varför inte:
<code>
If Tal And 1 Then
'Udda
Else
'Jämt
End If
</code>