hoppá... most olvasom és rájöttem hogy ez nem a kivonnó eljárás...

Private Sub Command4_Click()


If List1.Text <> '''' Then
If mag >= 10 And szele >= 10 Then
s1 = Left(List1.Text, InStr(List1.Text, ''x'') - 1)
s2 = Right(List1.Text, InStr(List1.Text, ''x'') - 1)
listitem = Val(s1) * Val(s2)
List1.RemoveItem List1.ListIndex
ossz = ossz - listitem
mem.Text = ossz
i = i - 1
ElseIf mag >= 10 And szele <= 10 Then
s1 = Left(List1.Text, InStr(List1.Text, ''x'') - 1)
s2 = Right(List1.Text, InStr(List1.Text, ''x'') - 2)
listitem = Val(s1) * Val(s2)
List1.RemoveItem List1.ListIndex
ossz = ossz - listitem
mem.Text = ossz
i = i - 1
ElseIf mag <= 10 And szele >= 10 Then
s1 = Left(List1.Text, InStr(List1.Text, ''x'') - 1)
s2 = Right(List1.Text, InStr(List1.Text, ''x''))
listitem = Val(s1) * Val(s2)
List1.RemoveItem List1.ListIndex
ossz = ossz - listitem
mem.Text = ossz
i = i - 1
End If
Else
d = MsgBox(''Nincs kijelölt adat!'', vbInformation, ''Hiba'')
End If

End Sub

na ez lenne az, ha valaki rájön hogy mi benne a hiba annak megköszönném.

''Az erőszak a gyengék végső menedéke'' /Isaac Asimov : Alapítvány/