ник: час
Вот примерчик
Private Sub Кнопка0_Click()
Dim FAM_I_O As String
If InStr(1, Me!Поле1, "-", 3) <> 0 Then
' тута будут оглы
FAM_I_O = Left(Me!Поле1, InStr(1, Me!Поле1, " ", 3)) & Mid(Me!Поле1, InStr(1, Me!Поле1, " " + 1, 3))
Else
' тута без оглов
FAM_I_O = Left(Me!Поле1, InStr(1, Me!Поле1, " ", 3)) & Mid(Me!Поле1, InStr(1, Me!Поле1, " ", 3) + 1, 1) & "." & Mid(Me!Поле1, InStr(InStr(1, Me!Поле1, " ", 3) + 1, Me!Поле1, " ", 3) + 1, 1) & "."
End If
Me!Поле3 = FAM_I_O
End Sub