mere functionsafprøvning

Private Sub Command1_Click()
  Call FørsteOrd
End Sub

sådan du mener, eller..?

det skulle så være Call FørsteOrd("hej med dig") eller lignende.

Private Sub Command1_Click()
  Call FørsteOrd("hej med dig")
End Sub

Næææh, det tror jeg ikke. Jeg har brug for at vide, hvordan jeg leverer data til funktionen, så den kan udføres. Jeg kan ikke gennemskue det.

Altsaa noget i retning af

Dim saetning as string, ord as string

saetning = "hej med dig"

ord = Foersteord(saetning)

Lav en form med en command1 på. copy-paste følgende

Private Sub Command1_Click()
Dim IndtastetSætning As String
Dim DetFørsteOrd As String

IndtastetSætning = InputBox("Skriv en sætning")
If Len(IndtastetSætning) > 0 Then
  DetFørsteOrd = FørsteOrd(IndtastetSætning)
End If
MsgBox "første ord er ' " & DetFørsteOrd & " ' "
End Sub

Public Function FørsteOrd(Sætning As String) As String
'Returnerer det første ord i sætningen
Dim i As Integer
'Løkke fra 1 til længden af strengen
For i = 1 To Len(Sætning)
    'Hvis vi er kommet til et mellemrum så ud af lække
  If Mid(String:=Sætning, Start:=i, length:=1) = " " Then
        Exit For
  End If
Next i
'i vil nu indeholde positionen på det første mellemrum
FørsteOrd = Trim(Left(String:=Sætning, length:=i))
End Function


PS: Jeg ville vælge at skrive

Trim(Left(Sætning,i)) i stedet for det forvirrende Trim(Left(String:=Sætning, length:=i))

webpsycho det fungerede desværre ikke. Men tak for deltagelsen.
overchord det fungerede desværre ikke. Men tak for deltagelsen.
martin moth det fungerede. Tak for hjælpen.

overchords svar er principielt magen til mit. Jeg har blot skåret det mere ud i pap.
webpsycko har vist ikke forstået, at en punktion skal modtage en parameter ,o)

overchord martin moth's siger:overchords svar er principielt magen til mit. Jeg har blot skåret det mere ud i pap.
Det kunne jeg ikke overskue, men du får så points her:
http://www.eksperten.dk/spm/670690?Esession=bf3c588b6370455e8261f3f12f2bc572