lNextRow = wf.CountA(Sheets("Sheet1").Range("A:A")) + 1

        With Worksheets("Sheet1")
            ' определение номера первой пустой строки 
            lNextRow = Application.CountIf(.Range("A:A"), "*") + 1
            ' Передача имени
            .Cells(lNextRow, 1).Value  = Me.tbxName.Text
            
            ' Передача сведений о поле
            With .Cells(lNextRow, 2)
                Select Case True
                Case Me.optMale.Value: .Value = "Мужчина"
                Case Me.optFemale.Value: .Value = "Женщина"
                Case Else: .Value = "Неизвестно"
                End Select
            End With
        End With

Function fDelText(sText As String, Optional sSep1 As String = ", ", Optional sSep2 As String = "/") As String
    Dim aSpl
    Dim j As Long, sTemp As String
    
    aSpl = Split(sText, sSep1)
    
    For j = 0 To UBound(aSpl)
        sTemp = sTemp & sSep1 & Split(aSpl(j) & sSep2, sSep2)(1)
    Next j
    
    fDelText = Mid$(sTemp, Len(sSep1) + 1)
End Function

MsgBox Split(sStr, "Wo")(0) & "Bay"