Private Sub Broj_Predmeta_Pregleda_Enter()
Dim Poz As Integer
Dim Tmp As String

On Error Resume Next
Tmp = Me.Broj_Predmeta_Pregleda
Poz = InStr(1, Tmp, "-/")
Me.Broj_Predmeta_Pregleda.SelStart = Poz
End Sub