Android Question requestfocus inside enterpressed is ignored

Sub changefocus()
    txtSku.RequestFocus
End Sub
Sub txtBuy_EnterPressed
    Dim sBuy As String
    
    If txtBuy.Text.length >10  Then
        txtSku.Text = txtBuy.Text
        txtBuy.Text = ""
    Else
        If HaveProduct Then
            sBuy =txtBuy.Text
            If sBuy = "0" Then
                Buy = 0
                AddDetail               'Used for Deleting Sales Entry
            Else
                Buy = Itz(txtBuy.Text)
                If Buy <> 0 Then
                    If Buy < 0 Then
                        txtBuy.Text = ""
                    Else
                        AddDetail
                    End If
                End If
            End If
        End If
    End If
    CallSubDelayed(Me,"changefocus")
End Sub

...
Sleep(0)
txtSku.RequestFocus