Function FindStk(ByVal code As String) As Variant
Dim pos1 As Integer
Dim pos2 As Integer
Dim str As String
Dim str1 As String
str1 = LCase(code)
If str1 Like "*p+*" Or str1 Like "*p *" Or str1 Like "*rec-*" Then
str = Replace(str1, "p+", "rec-")
pos1 = InStr(str, "rec-")
FindStk = RightNum(Mid(str, pos1))
ElseIf str1 Like "*ws*" Or str1 Like "*wc*" Then
str = Replace(str1, "ws", "wc")
pos2 = InStr(str, "wc")
FindStk = RightNum(Mid(str1, Len(FindDates(str1)), pos2 - Len(FindDates(str1))))
Else: FindStk = ""
End If
End Function