Pessoal estou usando o seguinte código para editar um grid:

Private Sub MSFlexGrid_KeyPress(KeyAscii As Integer)

    Select Case KeyAscii

        Case vbKeyReturn, vbKeyTab

            ''move para a proxima celula.

           With MSFlexGrid

               If .Col + 1 <= .Cols - 1 Then

                   .CellBackColor = &H8000000E

                   .Col = .Col + 1

                   .CellBackColor = &HC0FFFF

               Else

                   If .Row + 1 <= .Rows - 1 Then

                       .Row = .Row + 1

                       .Col = 0

                   Else

                       .Row = 1

                   .Col = 0

                   End If

               End If

            'End With

                MovimentaGrid

        Case vbKeyBack

            With MSFlexGrid

                'remove o ultimo caractere

                If Len(.Text) Then

                    .Text = Left(.Text, Len(.Text) - 1)

                End If

            End With

        Case Is < 32

        Case Else

            With MSFlexGrid

                .Text = .Text & Chr(KeyAscii)

            End With

    End Select

End Sub

Tem como eu colocar um prompt? Tipo o caracter  | Piscando?